home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / grphvga.com / GRAPHVGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-30  |  2.8 KB  |  103 lines
  1. (***********************************************************)
  2. (*                                                         *)
  3. (*   GraphVGA Unit  Revision 1.0                           *)
  4. (*   (c) 1991 by Modern Solutions.  All rights reserved.   *)
  5. (*                                                         *)
  6. (***********************************************************)
  7.  
  8. unit GraphVGA;
  9.  
  10. interface
  11.  
  12. const
  13.   fastreplace=$00;
  14.   fastand=$08;
  15.   fastor=$10;
  16.   fastxor=$18;
  17.  
  18. procedure SetVideoMode(number:byte);
  19. function GetVideoMode:integer;
  20. function CharacterHeight:word;
  21. function EGApresent:boolean;
  22. function EGAmemory:integer;
  23. procedure FastLine(x1,y1,x2,y2,number:integer);
  24. function FastGetPixel(x1,y1:integer):integer;
  25. procedure FastPutPixel(x1,y1,number:integer);
  26. procedure FastGetBlock(x1,y1,x2,y2:integer;storage:pointer);
  27. procedure FastPutBlock(x1,y1:integer;storage:pointer);
  28. procedure FastChar(c1:char;x1,y1,f1,b1:integer);
  29. procedure FastMode(mode:integer);
  30. procedure FastColor(number,value:integer);
  31. procedure FastCircle(xc,yc,major,minor,number:integer);
  32. procedure ScreenStart(x1,y1:integer);
  33. procedure ScreenSize(x1,y1:integer);
  34. procedure ScreenBorder(number:integer);
  35. procedure ScreenFont(font:pointer;height:word);
  36. function Joybutton(sticknumber,buttonnumber:integer):boolean;
  37. procedure Joystick(sticknumber:integer;var x,y:integer);
  38.  
  39. implementation
  40.  
  41. {$L SETVIDEO}
  42. procedure SetVideoMode(number:byte); external;
  43.  
  44. {$L GETVIDEO}
  45. function GetVideoMode:integer; external;
  46.  
  47. {$L CHARHEIG}
  48. function CharacterHeight:word; external;
  49.  
  50. {$L EGAPRESE}
  51. function EGApresent:boolean; external;
  52.  
  53. {$L EGAMEMOR}
  54. function EGAmemory:integer; external;
  55.  
  56. {$L FASTLINE}
  57. procedure FastLine(x1,y1,x2,y2,number:integer); external;
  58.  
  59. {$L GETPIX}
  60. function FastGetPixel(x1,y1:integer):integer; external;
  61.  
  62. {$L PUTPIX}
  63. procedure FastPutPixel(x1,y1,number:integer); external;
  64.  
  65. {$L GETBLOCK}
  66. procedure FastGetBlock(x1,y1,x2,y2:integer;storage:pointer); external;
  67.  
  68. {$L PUTBLOCK}
  69. procedure FastPutBlock(x1,y1:integer;storage:pointer); external;
  70.  
  71. {$L FASTCHAR}
  72. procedure FastChar(c1:char;x1,y1,f1,b1:integer); external;
  73.  
  74. {$L FASTMODE}
  75. procedure FastMode(mode:integer); external;
  76.  
  77. {$L FASTCOLO}
  78. procedure FastColor(number,value:integer); external;
  79.  
  80. {$L FASTCIRC}
  81. procedure FastCircle(xc,yc,major,minor,number:integer); external;
  82.  
  83. {$L SCREENST}
  84. procedure ScreenStart(x1,y1:integer); external;
  85.  
  86. {$L SCREENSI}
  87. procedure ScreenSize(x1,y1:integer); external;
  88.  
  89. {$L SCREENBO}
  90. procedure ScreenBorder(number:integer); external;
  91.  
  92. {$L SCREENFO}
  93. procedure ScreenFont(font:pointer;height:word); external;
  94.  
  95. {$L JOYBUTTO}
  96. function Joybutton(sticknumber,buttonnumber:integer):boolean; external;
  97.  
  98. {$L JOYSTICK}
  99. procedure Joystick(sticknumber:integer;var x,y:integer); external;
  100.  
  101. end.
  102.  
  103.